﻿-------------------------------------------------------------------------------
-- Включение/отключение поиска на панели после отпускания RAlt. © SimSU
-------------------------------------------------------------------------------

---- Настройки
local function Settings()
-- Начало файла Profile\SimSU\Shell_Shell_QuickSearch.cfg
return{
  Key="RAlt"; Prior=51;
  KeyDisable="/[LR]Alt./"; PriorDisable=0;
  KeyClose="Alt"; --PriorClose=50;
}
-- Конец файла Profile\SimSU\Shell_Shell_QuickSearch.cfg
end

---- Локализация
_G.far.lang=far.lang or win.GetEnv("farlang")
-- Встроенные языки / Buildin laguages
local function Messages()
if far.lang=="Russian" then
-- Начало файла Profile\SimSU\Shell_Shell_QuickSearchRussian.lng
return{
  Descr="Поиск на панели - пользуйтесь поиском после отпускания RAlt. © SimSU";
  DescrDisable="Стандартный поиск на панели отключен - пользуйтесь поиском после отпускания Alt. © SimSU";
  DescrClose="Закрыть поиск на панели (Esc). © SimSU";
}
-- Конец файла Profile\SimSU\Shell_Shell_QuickSearchRussian.lng
else--if far.lang=="English" then
-- Begin of file Profile\SimSU\Shell_Shell_QuickSearchEnglish.lng
return{
  Descr="Поиск на панели - пользуйтесь поиском после отпускания RAlt. © SimSU";
  DescrDisable="Стандартный поиск на панели отключен - пользуйтесь поиском после отпускания Alt. © SimSU";
  DescrClose="Закрыть поиск на панели (Esc). © SimSU";
}
-- End of file Profile\SimSU\Shell_Shell_QuickSearchEnglish.lng
end end

local M=(loadfile(win.GetEnv("FARPROFILE").."\\SimSU\\Shell_Shell_QuickSearch"..far.lang..".lng") or Messages)()
local S=(loadfile(win.GetEnv("FARLOCALPROFILE").."\\SimSU\\Shell_Shell_QuickSearch.cfg") or loadfile(win.GetEnv("FARPROFILE").."\\SimSU\\Shell_Shell_QuickSearch.cfg") or Settings)()
-------------------------------------------------------------------------------

Macro {area="Shell"; key=S.Key; priority=S.Prior; description=M.Descr;
  action=function() Keys("Alt< *") end;
}
Macro {area="Shell"; key=S.KeyDisable; priority=S.PriorDisable; description=M.DescrDisable;
  action=function() end;
}
Macro {area="Search"; key=S.KeyClose; priority=S.PriorClose; description=M.DescrClose;
  action=function() Keys("Esc") end;
}
